home *** CD-ROM | disk | FTP | other *** search
/ CD School House 10 / CD School House - Education and Games (10.0) - Wayzata Technology (1995).iso / mac / DOS / MISC / SSTUFF30 / RUNME.BAT < prev    next >
DOS Batch File  |  1994-05-16  |  6KB  |  188 lines
  1. @echo off
  2. if not "%1"=="" goto %1
  3. kls 1
  4. box welcome.txt /c79 /i4 /x78
  5. music fanf >NUL
  6. write "STEENBURGH's STUFF Version 3.0" 207 /r7 /c
  7. waitfor 2
  8. box welcome2.txt /s- /c68 /i4 /x78
  9. write "Copyright 1993 Tay-Jee Software" /r16 /c 76
  10. input "Press any key to continue..." /r19 /c 79 /q
  11. kls 1
  12. box intro.txt /c79 /i4 /x78
  13. input "Press any key to continue..." /r22 /c 31 /q
  14. :part1
  15. kls 1
  16. write "First, we'll survey your system...please wait." /r1 /l10 31
  17. chksys all>demo.tmp
  18. box demo.tmp /c79 /i4 /x78
  19. write "Use CHKSYS to determine the status of system drivers and other functions." /r22 /c 31
  20. input "Forward Index Quit " /kFIQ /q /c 31 /r24 /i
  21. if errorlevel 3 goto end
  22. if errorlevel 2 goto index
  23. :part2
  24. kls 1
  25. write "Next, we'll look at your disk drives:" /r1 /l10 31
  26. :drives
  27. skip 3
  28. chkdrv
  29. skip 2
  30. input /d /q /i /mDRV /c 31
  31. chkdrv %DRV%:>demo.tmp
  32. space %DRV%: /sk>>demo.tmp
  33. kls 1
  34. box demo.tmp /c79 /i4 /x78
  35. input "Another drive, or Continue presentation? " /kAC /q /c 31 /r22 /i
  36. if not errorlevel 2 goto part2
  37. :part3
  38. echo Your system's video card >demo.tmp
  39. skip >>demo.tmp
  40. kls 0 /v >>demo.tmp
  41. write "Let's take a look at your video system..." /r1 /l10 15
  42. box demo.tmp /c14 /i0 /x15
  43. waitfor 3
  44. write "The following color/grayscale patterns are available." /r17 /c 15
  45. input /a- /MATTR /r19 /c
  46. kls /b%ATTR%
  47. if errorlevel 2 if not errorlevel 4 goto extend
  48. waitfor 3
  49. write "With KLS, you can clear the screen in color," /r22 /c 14
  50. write "or independently set the border color." /r23 /c 14
  51. waitfor 3
  52. :resume
  53. for %%d in (0 0 1 1 2 2 3 3 4 4 5 5 6 6 7 7 0 0) do kls /b%%d
  54. input "Forward Backward Index Quit " /kFBIQ /q /c 31 /r24 /i
  55. if errorlevel 4 goto end
  56. if errorlevel 3 goto index
  57. if errorlevel 2 goto part2
  58. :part4
  59. kls 4
  60. write "How about some noise?" /r1 /l10 79
  61. sounder /t10 /l10 +
  62. write "SOUNDER can produce BILLIONS of random sound effects." /r10 /c 78
  63. waitfor 2
  64. sounder
  65. waitfor 2
  66. write "Tired of the same old beep that you get so used to it's meaningless?" /r12 /c 78
  67. waitfor 2
  68. sounder /t5 /l20 +
  69. waitfor 2
  70. write "SOUNDER can also make some pretty unique noises..." /r14 /c 78
  71. waitfor 2
  72. sounder /e3 /f
  73. waitfor 2
  74. write "Of course, if you're into serious tunes, then MUSIC is for you..." /r16 /c 78
  75. waitfor 2
  76. music heyjude2 >NUL
  77. kls 4
  78. write "As you can see, STEENBURGH's STUFF can really make your PC sound off-" /r12 /c 79
  79. write "And that ain't just whistlin' dixie!" /r14 207 /c
  80. waitfor 3
  81. music dixie2 >NUL
  82. kls 4
  83. write "As you can see, STEENBURGH's STUFF can really make your PC sound off-" /r12 /c 79
  84. write "And that ain't just whistlin' dixie!" /r14 207 /c
  85. input "Forward Backward Index Quit " /kFBIQ /q /c 79 /r24 /i
  86. if errorlevel 4 goto end
  87. if errorlevel 3 goto index
  88. if errorlevel 2 goto part3
  89. :part5
  90. kls 7
  91. write "With STEENBURGH's STUFF, Time is on your side..." /r1 /l10 112
  92. write "You can format almost any element of the time and date any way you want:" /r4 /c 116
  93. clk "The time is now: %%X" /r6 /c 112
  94. clk "Hey you!  It's %%I:%%M %%p.  Get a watch!" /r8 79 /c
  95. clk "Today is %%A, %%B %%d %%Y" /r10 112 /c
  96. write "What's more, unlike the DATE and TIME commands in DOS, with CLK" /r13 /c 112
  97. write "you won't be prompted for a new value each time you use it." /r14 /c 112
  98. write "WHENISIT allows you to perform errorlevel tests on the time and date," /r17 /c 116
  99. write "or perform a once-a-day check - one of our most requested features." /r18 /c 116
  100. input "Forward Backward Index Quit " /kFBIQ /q /c 112 /r24 /i
  101. if errorlevel 4 goto end
  102. if errorlevel 3 goto index
  103. if errorlevel 2 goto part4
  104. :part6
  105. kls 1
  106. write "INPUT is the most powerful part of STEENBURGH's STUFF" /r1 /l10 31
  107. write "You've already seen how INPUT is useful for selecting disk drives & colors." /r4 /c 30
  108. write "INPUT can also directly manipulate environment variables." /r5 /c 30
  109. write "Let's try an example." /r7 /c 31
  110. input "Enter a value for the variable STUFF: " /r9 /c /f20 /MSTUFF 113 31
  111. write "OK, now let's take a look at your system's environment strings..." /r12 /c 31
  112. input "Press any key to continue..." /r15 /c 30
  113. cls
  114. set
  115. pause
  116. kls 1
  117. write "You can later use INPUT to edit this variable." /r6 /c 31
  118. write "Go ahead, move the cursor all around the field." /r7 /c 31
  119. input "Edit the value for the variable STUFF: " /r9 /c /f20 /MSTUFF 113 31
  120. write "OK, now let's take a look at your system's NEW environment strings..." /r12 /c 31
  121. input "Press any key to continue..." /r15 /c 30
  122. cls
  123. set
  124. pause
  125. input "Forward Backward Index Quit " /kFBIQ /q /c 112 /r24 /i
  126. if errorlevel 4 goto end
  127. if errorlevel 3 goto index
  128. if errorlevel 2 goto part5
  129. :part7
  130. kls 0
  131. box wrapup.txt /c31 /i3 /x48
  132. input "Index Quit" /kIQ /i /r24 15 /c
  133. if errorlevel 2 goto end
  134. :index
  135. kls 1
  136. batbox index.mnu /o /p3 >NUL
  137. if errorlevel 9 goto end
  138. if errorlevel 8 set PDOC=STUFF.DOC
  139. if errorlevel 8 goto print
  140. if errorlevel 7 goto order
  141. if errorlevel 6 goto part6
  142. if errorlevel 5 goto part5
  143. if errorlevel 4 goto part4
  144. if errorlevel 3 goto part3
  145. if errorlevel 2 goto part2
  146. if errorlevel 1 goto part1
  147. goto end
  148. :order
  149. kls 1
  150. set PDOC=REGISTER.FRM
  151. box order.txt /c78 /i4 /x79
  152. music hallelu>NUL
  153. input "Would you like to print an order form?" /Y /c /r22 79
  154. if errorlevel 1 goto print
  155. goto index
  156. :print
  157. kls 1
  158. chkprn lpt1|sift /f:>demo.tmp
  159. chkprn lpt2|sift /f:>>demo.tmp
  160. chkprn lpt3|sift /f:>>demo.tmp
  161. write "CHKPRN has determined the status of your printer(s):" /r3 /c 31
  162. box demo.tmp /c79 /i4 /x78
  163. input "Select a printer port: " /K123 /q /r20 /c 31 /MLPT
  164. if errorlevel 254 goto index
  165. cls
  166. call safeprn.bat %PDOC% LPT%LPT%
  167. waitfor 3
  168. goto index
  169. :extend
  170. waitfor 3
  171. write "With KLS, you can clear the screen in color," /r22 /c 14
  172. write "or independently set the border color." /r23 /c 14
  173. kls /x
  174. waitfor 3
  175. write "You can also switch back and forth between EGA/VGA extended modes." /r30 /c 15
  176. waitfor 5
  177. kls /b%ATTR% /n 0
  178. write "Let's take a look at your video system..." /r1 /l10 15
  179. box demo.tmp /c14 /i0 /x15
  180. write "With KLS, you can clear the screen in color," /r22 /c 14
  181. write "or independently set the border color." /r23 /c 14
  182. goto resume
  183. :end
  184. kls 1
  185. box theend.txt /c78 /i4 /x79
  186. music tarara>NUL
  187. cls
  188.